procedure TForm1.Button1Click(Sender: TObject);
begin
   Canvas.Font.Name:='VNI-Times';
   Canvas.Font.Style:=[fsBold,fsItalic];
   Canvas.Font.Size:=18;
   RotateText(Canvas,100,100,'Hello Delphi',30);
   RotateText(Canvas,100,100,'Hello Delphi',120);
end;
